محافظة القليوبية إدارة غرب شبرا الخيمة اعداد / د.امانى فاروق 
نموذج (أ) لامتحان الصف الثالث الاعدادى ۲١٠۸/۲١٠۷‏ 


السؤال الأول:- اكمل كل من الجمل الآتية : 


-١‏ للإعلان عن متغير المرتب 531237 نكتب الكود 
جملة من جمل التفرع تعتمد على وجود متغير واحد وأكثر من شرط 
الخطأ في ناتج تشغيل كود بلغة آ٤.. ۷B‏ يسمى 
ما يأتى بعد كلمة ۴| يسمى د 
ناتج تنفيذ العملية الحسابية الأتية ( 1- 3 000 11 )/(30 - 352 *4) هو 


اماكن محجوزة بالذاكرة 830 وتتغير قيمتها أثناء تشغيل البرنامج. 
نشر معلومات عن شخص او اكثر بشكل مسىء. 
اجراء لا يعود بقيمة . 
جملة تفرع تستخدم فى حالة وجود بديلين. 
امر يستخدم عند عدم معرفة عدد مرات التكرار. 
السؤال الثالث :- ( أ ) ما المقصود بكل من : 
Sub OddorEven ) ByVal First As Integer, ByVal Second As Integer ) -١‏ 
؟- Const U_Name As String= "Ali"‏ 
Listbox1.ltems.Add(x) -‏ 


( ب ) اكتب الكود اللازم لما يلى : 


Textb0×1.1٥×خ فى الأداة‎ M1 عرض قيمة المتغير‎ ١ 
تكرار الكود طالما ان الشرط 10-<>/1 محقق‎ -" 


السؤال الرابع :- اجب عن الاسئلة الاتية مستعين بالكود 


Dim m As Integer Dim A As integer =6 
Me.Lebel1.Text = "'"' Dim B As integer=5 
For M = 5 To 9 Step 2 Msgbox( "A" &'"*'" &'"B'') 
Me.Label1.Text = Me.Label1.Text & M & vbCrLf 
اكتب ناتج تنفيذ الكود السابق‎ 
الغرض من الكود‎ 
عدد مرات التكرار‎ 
المقصود بالأمر‎ 




















محافظة القليوبية إدارة غرب شبرا الخيمة اعداد / د.امانى فاروق 


إجابة نموذج (أ) لامتحان الصف الثالث الاعدادى ٠١٠۸/۲١٠۷‏ 


اجابة السؤال الأول 


Dim X AS Single الكود هو‎ 


Select Case 


خطأ منطقى e٥٣۶‏ اعا 
ما يأتى بعد كلمة ۴| يسمى التعبیر الشرطى وناتجه عب7 او عءاھ۴ 
ناتج تنفيذ العملية الحسابية الأتية ( 1- 3 mod‏ 11 )/(30 - 3^2 *4) هو ١‏ 


اجابة السؤال الثانى 
)1غ( 
المتغيرات 





اجابة السؤال الثالث 


لي 
التشهير الالكترونى 








(°) (5) (0 
Do While Loop If ...then ...Else 











Sub OddorEven ( ByVal First As Integer, ByVal Second As Integer ) -١ 
Integer ونوعهم‎ Second » First ووسائطه‎ OddorEven الاعلان عن اجراء باسم‎ 


"Ai"‏ دعم نم5 Const U_Name As‏ ... الاعلان عن ثابت باسم 3006لا_لا ونوعه عہ ٣٤ء‏ وقيمته 11م 


(«)500.دصاع1.1“ه15 ... اضافة قيم المتغير × فى الاداة 1×هطtءا|‏ من خلال الخاصية ¡t٠s‏ والوسيلة 00م 


ب- اكتب الكود 


١د‏ عرض قيمة المتغير 8/1 فى الأداة ٤×٥0×1.۲ط»×۲۴‏ ... Textbox1.Text= M‏ 


"- تكرار الكود طالما ان الشرط 10->/1 محقق 


اجابة السؤال الرابع :- 





&'"B'") 


Dim A As integer =6 
Dim B As integer=5 
Msgbox( TA" "كليم‎ 


اكتب ناتج تنفيذ الكود السابق 


اظهار صندوق رسالة به ۸*8 





Do While N<=10 


Dim m As Integer 
Me.Lebel1.Text = '" 
For M = 5 To 9 Step 2 
Me.Label1.Text = Me.Label1.Text & M & vbCrLf 
Next M 
الغرض من الكود عرض الاعداد الفردية من ه الى ؟ على‎ -١ 


الاداة label1‏ 
"- عدد مرات التكرار ” 
*- المقصود بالأمر 
Me.Lebel1.Text = " "‏ 
افراغ محتوى الاداة 1,25611 الموجودة على نافذة النموذج 
-٤‏ تستخدم 710011 فى اضافة سطر جديد 


ه قيمة 71 بعد تنفيذ الحلقة  ١١‏ 























محافظة القليوبية إدارة غرب شبرا الخيمة اعداد / د.امانى فاروق 
نموذج (ب) لامتحان الصف الثالث الاعدادى ۲١٠۸/۲۰٠۱۷‏ 
السؤال الأول:- اكمل كل من الجمل الآتية : 
. الكود المستخدم للأعلان عن عجلة الجاذبية الارضية والتى تساوى1,7 هو 
. الناتج النهائى للمتغير × للمعادلة 3*)5+6(/3+4 =× هو 
. نوع الخطأ فى الجملة الأتية : +81 85 × صا خطأ من النوع 
. يتم الاعلان عن الاجراء بكلمة 
. يتوقف التكرار فى جملة 2- م51 1 70 11-10 ۴٠۲‏ عندما تصبح قيمة المتغير آلا 


. جملة تتكون من طرفين ايسر (مكان وضع القيمة ) وايمن ( مكان القيمة ) ويفصل بينهما علامة = 
. جملة تكرار تنفذ اكوادها عند تحقق شرط معين . 

. ارسال العديد من الرسائل لاحد المراهقين بهدف التهديد او التخويف . 

. امر تنتهى به جملة ©235..... 56160 . 

. خاصية تستخدم لجعل اداة صندوق النص يسمح للكتابة بداخله على اكثر من سطر. 


-: السؤال الثالث- 0( اذكر المقصود بكلا من‎ 
Procedures الثوابت ؟-‎ -١ 
If Degree>=10 Then Msgbox(Pass) =“ For N=3 To 30 Step 3 -'" 


5-Dim Gender as Boolen="رSd‎ " 


السؤال الرابع :- 


اعد كتابة الكود التالى باستخدام جملة Do While Loop‏ اقرأ الأكواد التالية ثم اجب 


Dim X,Y ,2 As Integer Dim N,A ,Total As Integer 
Z=10 N= Textbox1.text 
For X =1 To 10 Step 5 For A= 2 To N Step 2 
Y=¥+X Total= Total +A 
Next Next 
If X >=Z then Label3.Text= Total 
2-2 
End If 
X,Y,Z اوجد قيم المتغيرات‎ 























محافظة القليوبية إدارة غرب شبرا الخيمة اعداد / د.امانى فاروق 
إجابة نموذج (ب) لامتحان الصف الثالث الاعدادى ۲١٠۸/۲۰٠۱۷‏ 
اجابة السؤال الأول 


Const X AS Single=9.8 الكود هو‎ 

ناتج المعادلة ٠١‏ 

اخطاء املائية ونحوية Syntax Errors‏ 

يتم الاعلان عن الاجراء بكلمة طاں؟ وينتهى بكلمة اں؟ 0م 

يتوقف التكرار فى جملة 2- م516 1 70 81-10 ,60 عندما تصبح قيمة المتغير ۸ اقل من من قيمة النهاية 
اجابة السؤال الثانى 

(5) (٤( (۳) (") )1غ(‎ 

جملة التخصيص | pه٥]1...‏ eا¡Wh‏ 06 | الملاحقة الالكترونية | VbCrLf End select‏ 
اجابة السؤال الثالث 




















الثوابت هى : أماكن بذاكرة الكمبيوتر "4®" قيمها تظل ثابتة أثناء تشغيل البرنامج 
>م Procedures‏ : هو مجموعة من الاوامر والتعليمات له أسم معين نستدعية بكتابة أسمة في المكان المطلوب أستد عاءة فيه ليتم 
تنفيذ أوامرة وتعليماتة. 
For N=3 10 30 Step 3 >‏ .... جملة تكرار للعداد 77 من ۳ الى "١‏ بمقدار زيادة ۳ 
Degree>=10 Then Msgbox(Pass)‏ ۴| .... اذا كانت قيمة المتغير 10-<1781766 يظهر صندوق رسالة به كلمة ووه17 
" Sر"=Boolen Dim Gender as‏ 


الاعلان عن متغير النوع ملم مع ونوعه 8٥0٥1٥۸‏ وقيمته ذكر 


اجابة السؤال الرابع 


كتابة الكود باستخدام جملة Do While Loop‏ اقرا الأكواد التالية ثم اجب 
Dim X,Y ,Z As Integer Dim N,A ,Total As Integer‏ 
Z=10 N= Textbox1.text‏ 
For X =1 To 10 Step 5 A=2‏ 
Y=Y+X Do While A<=10‏ 
Next Total= Total +A‏ 
If X >=Z then A=A+2‏ 
Next‏ 222 
End If Label3.Text= Total‏ 
ايجاد مجموع الاعداد الزوجية من ؟ الى ٠١‏ إ6 , 1=× 
Y=1 ,7‏ 
220 
عدد مرات التكرار ۲ 


× بعد نهاية التكرار ١١‏ 
































محافظة القليوبية إدارة غرب شبرا الخيمة اعداد / د.امانى فاروق 


نموذج (ج) لامتحان الصف الثالث الاعدادى ۲١٠۸/۲۰١۱۷‏ 


السؤال الأول:- صحح ما تحته خط فى الجمل الأتية 


. يصلح كاسم متغير لعنوان الموظف‎ 55٤۷ -١ 

۷8.٤۲ ا3مذزوه! الخطأ الذي يظهر أثناء كتابة كود بلغة‎ errors -١ 

۳- ناتج تنفيذ العملية الحسابية : 2*5-472+3 هو 9 

For N=1 7o 10 step -2  دوكلا‎ بتكت٠١:١ لطباعة الاعداد الزوجية من‎ -٤ 
نکتب الكود‎ ۱٣۵96۲ للاعلان عن اجراء باسم 4/0123 وبوسيط ۸ ونوعه‎ -٥ 


Sub A (ByVal Amira As Integer) 


السؤال الثانى:- اختر الاجابة الصحيحة من بين الاقواس 


) ينتج خطأ ( لغوى - منطقى - عند التشغيل‎ 8۷٤١ عند تخزين القيمة 755 فى متغير من النوع‎ -١ 
8 ؟-اى من جمل 581864 التالية ناتجها ©1100 فى حالة قيمة متغير الحلقة يساوى‎ 


Case is >=4 - Case 1 To 8 - Case ls <8)‏ ( 
الالكترونى عبارة عن تجاهل شخص او أكثر من خلال وسائط إالكترونية 
( التشهير- التهديد - الاستثناء ) 
؛- While N>=-10‏ 0 فان حلقة التكرار تنتهى عند ( (N<10- N=10 - N>10‏ 


ه- لتكرار الكود فى اكثر من موضع داخل التصنيف ولا يعود بقيمة يستخدم الاجراء 
Sub- Function- For ...Next)‏ ( 


السؤال الثالث - 


. يمكن تخصيص قيمة لها اثناء الاعلان عنه أو أثناء التشغيل‎ -١ 
. ؟"- معامل يستخدم فى ربط السلاسل الحرفية ببعضها‎ 
جملة تكرار تستخدم عند معرفة عدد مرات التكرار‎ -۳ 
(ب) ما معنى الأكواد الأتية:-‎ 
1- Label2.text=Sum(x,y) 
2- Dim T As Date = #1/5/2018# 


السؤال الرابع :- 
(أ ) اعد كتابة الكود الأتى بعد اكتشاف الاخطاء الثلاثة (ب) ما هو ناتج تنفيذ الكود التالى 

8-5 حم‎ 6 Dim لا‎ As Integer 

Do While B<=10 X=Me.Textbox1.Text 

A=B+A If <0 

B=B+2 Msgbox("Pass") 

Loop Else 


Msgbox (A) Msgbox ("Fail") 























محافظة القليوبية إدارة غرب شبرا الخيمة اعداد / د.امانى فاروق 
اجابة نموذج (ج) لامتحان الصف الثالث الاعدادى ۲١٠۸/۲۰٠۱۷‏ 
اجابة السؤال الأول 
(١)‏ 0( 0( )5( )°( 
Syntax errors) City‏ -؟ |2 N=1 To 10 step‏ عه | Sub Amira (ByVal A As Integer)‏ 
اخطاء املائية ونحوية 




















۰ 


اجابة السؤال الثانى 
)1غ( 90( 
لغوى 4=> Case is‏ 




















اجابة السؤال الثالث 
)1غ( 
المتغيرات 














ب- معنى الاكواد 
Label2.text=Sum(x,y)‏ -1 
عرض قيمة الدالة ں؟ك بعد ادخال قيمة الوسائط ۷,× فى اداة العنوان غاءغ.4/ا1]206 
Dim 1 As Date = #1/5/2018#‏ -2 
الاعلان عن متغير اسمه 7 نوعه 036 وقيمته 1/5/2018 


اجابة السؤال الرابع 
(أ ) الكود بعد اكتشاف الاخطاء (ب) ناتج تنفيذ الكود التالى 
As Integer‏ لا Dim‏ 6 حم 8-5 


Do While B<=10 Y=Me.Textbox1.Text 


A=B+A If Y>100 Then 


B=B+2 Msgbox("Pass") 


Loop Else 


م ومع | ظهور صندوق رسالة بقيمة ۸ وهی 27 
قيم 8 داخل الحلقة ( 5,7,9 ) 


قيم ۸ داخل الحلقة (11,18,27) 











مع تمنياتى بالتوفيق والنجاح 









































